﻿
Namespace LightSwitchApplication

    Public Class SearchOrder

        Private Sub FromDate_Validate(results As ScreenValidationResultsBuilder)
            ' results.AddPropertyError("<Error-Message>")
            Me.FromDate = Date.Today.AddDays(-10)

        End Sub

        Private Sub ToDate_Validate(results As ScreenValidationResultsBuilder)
            ' results.AddPropertyError("<Error-Message>")
            Me.ToDate = Date.Today
        End Sub
    End Class

End Namespace
